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Renewing Subscriptions 


The 4-digit number in the upper right corner of your mailing label 
is the expiration date of your subscription. The first two digits 
are the year, and the last two digits are the month of the last 
issue you have paid for, 


If your label says "8109", now is the time to renew to be sure of 
uninterrupted service. 


Beneath Apple DOS 


In the few weeks since I sent out last month's AAL, with the 
review of this book, I have sold 85 copies! My apologies if your 
shipment was delayed a little. Last Friday at 3:30 a shipment of 
100 copies arrived; at 5:45 I took about 50 packages to the UPS 
station. Another 10 went out by mail this morning. A lot of 
work, but a lot of fun too, 


I expect another shipment of 100 copies about the time you get 
this newsletter, so go ahead and order your copy if you have been 
waiting. 


Using Firmware Card in Slot 4 


Are you tired of getting "LANGUAGE NOT AVAILABLE" errors? Do you 
have a 16K RAM card, and also an old Firmware Card with one of the 
Basics on it? You can patch DOS to allow the Firmware Card to be 
put in slot 4, and still keep your RAM card in slot’0O for Pascal 
Or whatever. With DOS loaded, type CALL -151 to get to the 
monitor; then patch: 

*A5B8:C0 

*A5C0:Cl 
Get back into Basic (3D0G), and INIT a disk with the modified DOS. 
If you have a disk utility program, you can patch the DOS image on 
ae disk the same way. (From Michael W. Sanders, Decatur, 


The Lower Case Apple..cccccccccccccvcccccecsesseBOb Matzinger 


It occured to me that, since I have installed a Dan Paymar Lower 
Case Adapter, there ought to be a better way to generate lower 
case characters than by RAM-resident software. 


The major problem is the F8 ROM. The CAPTST routine at SFD7E will 
not allow lower case characters to pass; if they get this far, 
they will be converted to upper case here. I cannot figure a 
reason for this routine, since the Apple will not generate lower 
case codes in the first place! 


Anyway, there are only two ways I know of to avoid CAPTST: write 
my own line input subroutine (I want to avoid that!), or burn a 
new F8 ROM. All I would have to change is one lousy byte, at 
SFD83, from SDF to SFF. Seems like a waste of time...or is it? 
Maybe, since I am going to the trouble of burning the ROM, I can 
add some routines to extend the capabilities of my keyboard to 
access ALL of the ASCII characters. 


That is what I decided to do, But! How do I make it transparent? 
It should not interfere with or be interfered by any program or 
language, 


Within the monitor routines there are two that are not used; in 
fact, they were removed when the Autostart ROM came about. These 
are the 16-bit multiply and divide routines from SFB60 through 
SFBCO. I can insert my new code there. 


I also need two RAM locations for shift lock and case flags. I 
must find two locations that would probably NOT be used by any 
Other program. There are a number of location in zero page that 
are not normally used; the bottom of the stack and the top of the 
input buffer might not be used. Checking that out, however, I 
have found that most other people have thought of these locations 
already. Where can I go? 


I found two bytes not used by anyone, inside the screen buffer 
area. They are reserved for the board plugged into slot 6, which 
in my case is the disk controller. The disk controller does not 
use locations $077E and SO7FE ($0778+slot# and SO7F8+slot#). More 
than likely, nobody would use these locations (at least that is 
what I am gambling on). 


Now that I have room for flags, the next step is to write the 
routines to fit between S$FB60 and SFBCO, and set up calls to them. 
I have to be careful not to change any other routines. Here is 
what I want: 


1. Upon RESET, initialize to upper case, 
2. Have a shift and shift-lock routine. 
3. Be able to enter all ASCII characters. 


When RESET is pressed, or when the Apple is turned on, the 6502 
microprocessor executes a JMP indirect using the address at $FFFC 
and SFFFD. This effectively jumps to SFF59 in the monitor which 
is the reset routine. The reset routine calls INIT at SFB2F, 
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which in turn ends with a JMP VTAB at SFB5D. If I change that 
last instruction, it can fall into the area formerly occupied by 
the multiply routine. How convenient! I'll put the code there to 
set upper case mode. 


Most programs written for use with the Paymar Adapter have their 
own input routines. The monitor routines are not used. Therefore 
my changes should have no adverse effect on these programs. 


The next thing I had to decide was which control-keys to use for 
shift, shift-lock, and the three characters not available from the 
standard Apple keyboard. I didn't want to use the escape key, 
since it is used by so many other programs. I finally chose 
these: 


control-Z: Shift and Shift-lock 
control-K: Left bracket and Left Brace 
control-L: Backslash and Vertical Bar 
control-O;: Underline and Rubout 


One final problem to overcome is passing the cursor over a lower 
case character. The cursor, in the normal monitor, makes the 
Character under the cursor flash. A lower case character will 
flash in upper case, so you cannot tell whether it was lower or 
upper case without moving the cursor. I decided to make lower 
case characters under the cursor display as inverse upper case, 
rather than flashing. That way there is no doubt. 


Now how do we get the patches into the ROM? First we need to get 
a copy of the standard ROM code into RAM. Then assemble the 
patches, and save the patched copy on disk. From inside the S-C 
Assembler II, type: 


:$6800<F800.FFFFM (copy monitor into RAM) 
:ASM (assemble the patches) 
:BSAVE F8 EPROM,A$6800,L$800 (save patched monitor) 


After the patches had been made, I used ROMWRITER, by Mountain 
Hardware, to burn a 2716 EPROM. This EPROM was then inserted, 
with appropriate adaptation, in the F8 socket on my Apple mother 
board. 


[NOTE: A 2716 EPROM WILL NOT DIRECTLY REPLACE THE F8 ROM. EITHER 
THE MOTHER BOARD CIRCUITRY MUST BE MODIFIED OR AN APPROPRIATE 
SOCKET ADAPTER MUST BE USED.] 


If you have a 16K RAM card, you can try the patched monitor 
without burning a ROM. After the patches have been assembled into 
the standard copy at $6800, type the following: 


:$C081 C081 (write enable RAM card) 
:$F800<6800.6FFFM (copy new monitor up) 
:$C080 (turn on RAM version) 


After putting the patched monitor into the RAM card, you have to 
patch the assembler to turn off its own CAPTST, if you want to see 
the lower case stuff work inside the assembler. Type: 


s 
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:$139B:FF 


This will make the assembler allow lower case characters to be 
typed in, but they are only legal in comments. 


Some more words of caution. These patches are for the "old" 
monitor ROM. They will not work in the Autostart ROM. My choice 
of control-K and control-L may upset some users. Control-K is 
used aS a monitor command equivalent for IN#¢slot, and control-L is 
used to generate a form-feed on some printers. I can always go to 
BASIC for the IN#slot, and my printer has a button for form-feed. 
I feel that the full upper-lower case ability is much more 
desirable. 


WHEN ALL ELSE FAILS, READ THE INSTRUCTIONS AGAIN! 


1900 * LOWER CASE FB ROM.1 
1020 * THESE PATCHES ARE FOR THE "OLD" F8 ROM. THEY 
1030 * WILL NOT WORK INTO THE AUTOSTART ROM MONITOR 
1940 * ROUTINES. 
1060 * OPERATION: $6800<F800.FFFEM 
1070 * ioe ASSEMBLE THIS CODE 
1080 . BSAVE F8 EPROM,AS6800,LS0800 
0O8B- 1100 CTRLK . LEFT BRACKET OR BRACE 
008C- 1110 CTRLL . BACKSLASH OR VERTICAL BAR 
OO8F- 1120 CTRIO . UNDERLINE OR RUBOUT 
009A- 1130 CTRLZ : SHIFT OR SHIFT LOCK 
077E- 1140 CASE; FOR DOS IN SLOT 6 
O7FE- 1150 LCKFIG : FOR DOS IN SIOT 6 
C010- 1160 KYSTRB : 
FC22- 1170 VIAB. Cz. 
0C- 1180 RDKEY . 
1190 * 
1200 PATCH1 -OR 5D 
ig «7A Seen 
FB5D- AO 00 1230 SETCAS LDY #0 PART OF RESET ROUTINE TO INIT 
FB5F—- 8C 7E 07 1240 STY CASE UPPER CASE MODE 
FBes- Be FE 07 t5e6 SPY LOKFLG 
4c 2 1270 JMP VTAB 
1280 * 
1290 PATCH2 .OR E028 
1300 A “TA $6D2B 
FD2B- 4C 69 FB 1320 JMP LCADAP FROM KEYIN ROUTINE TO LOWER 
FD2E- FA 1330 - NOP CASE "ADAPTER" 
1326 PATCH3 .OR sED82 
1360 : “TA $6D82 
FD82- 29 FF 1380 i AND #SFF ALLOW LOWER CASE TO PASS 
1400 PATCH4 .OR SFD11 
1410 i “TA S6D11 
FD11- 20 BS FB 1430 JSR FORM DISPLAY CHARACTERS UNDER THE 
FD14— EA 1440 . NOP CURSOR CORRECTLY 
1460 * THE CTRL-Z KEY IS USED LIKE THE SHIFT KEY ON A 
1470 * TYPEWRITER: ONE CTRL-Z WILL ENTER ONE UPPER 
16g oo ee ee ee 
1500 * Two CTRL-Z' z a ene SOE Une. PERFORM A 
1510 * “SHIFT-~LOCK F THE MODE WAS LOWER CASE, 
1520 © Te RET vis WILL Ure IN UPPER CASE; IF THE 
1530 * LL LOCK 


MODE WAS UPPER CASE, TWO CIRL-Z'S WI 
IN LOWER CASE. 
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1550 * 


1560 PATCHS .OR gEB69 
1570 . -TA S6B69 
FB69- 2C 10 CO 1590 LCADAP BIT KYSTRB CLEAR KEYBOARD 
FB6C- CS 9A —S—: 1600 CMP #CTRLZ SEE IF "SHIFT" 
FB6E- DO JA __ 1610 BNE .4 NO, TRY OTHER 
FB70- AD FE 07 1620 LDA LCKFLG 
FB73- 49 80 1630 EOR #580 FLIP BIT 7 (CTRLZ FLAG) 
FB75- 3002 1640 BMI . NEGATIVE IF FIRST CTRL-Z 
FB77- 49 01 1650 FOR #501 FLIP BIT 0 (LOCK FLAG) 
79- 8D FE 07 1660 .1 STA LCKFLG 
FB7C- FO 04 ~=—-: 1670 BEO .2 .eeIF LOCK FLAG IS CLEAR 
FB7E- A9 00 ~=—- 1680 LDA #0 SET UPPER CASE 
80- FO 02. ~=—s-: 1690 BEQ 3 «ALWAYS 
FB82- A9 20 _—-1700 2 4520 SET LOWER CASE 
FB84- 8D 7E 07 1710: A 
FB87- 4C 0C FD 1720 JMP RDKEY 
FB8A- CS 8B—Ss:«1730 .4 CMP #CTRLK 
FB8C- FO 08 174 FO .5 
FB8E- C9 8C ——:1750 CMP #CTRLL 
FB90- FO 04 ~=—_: 1760 BEO .5 
FB92- C9 8F _~—-1770 CMP #CIRLO 
FB94— DO 02. ~—-1780 BNE 
FB96- 09 50 1790 .5 ORA #$50 CONVERT TO SPECIAL CHARS 
FB98- C9 CO ~=—_—«»1800 .6 Cup #$C0 MERGE CASE IF ALPHA 
FB9A- 90 03 _—‘-1810 NOT ALPHA 
FB9C- OD 7E 07 1820 ORA CASE 
FBOF- 48 1830 .7 SAVE MODIFIED CHAR 
FRAO- AD FE 07 1840 LDA LCKFLG 
FRA3- 10 05 ~=—- 1850 BPL .8 .eeIF Z-FLAG CLEAR 
FRA5- A9 00 1860 LDA $0 CLEAR Z AND LOCK FLAGS 
FBA7— 8D FE 07 1870 STA LCKFLG 
FBAA- DO 05 ~—- 1880 .8 BNE .9 ..-IF LOCK FLAG IS SET 
FRAC- AI 20 ‘1890 LDA #$20 SET LOWER CASE 
FRAE- 8D 7E 07 1900 STA 
FBB1- 68 1910 .9 PLA RETRIEVE MODIFIED CHAR 
FBB2- 60 1920 RTS 
FRBB3- 00 1930 BRK 
FBB4- 00 1940 A BRK 
1960 * CURSOR DISPLAY FOR EDITING 
FBB5- C9 EO 1980 FORM CMP #SE0 IS IT LOWER CASE? 
FBB7~ BO 05 1990 BCS . YES, SO BRANCH 
FBB9- 29 3F = 2000 AND #S3F CHARACTERS (EXCEPT LOWER 
FBBB- 09 40 2010 ORA #$40 CASE) ARE FLASHED 
FBRBD- 60 2020 RTS 
FBBE- 49 E0 2030 .1 EOR #SEO MAKE LOWER CASE INTO 
FBCO- 60 2040 . RTS INVERSE UPPER CASE 
2055 * WRITTEN: NOVEMBER 1, 1980 
2060 * REVISED: JUNE 25, 1581 
2070 * AUTHOR: BOB MATZINGER 
2080 * Pe BOX 13446 
2090 * : 76013 
2100 * (817) 265-8122 
2110 * 


Screen Printer 


Last month I alluded to my trouble in getting a screen printing 


subroutine to work with the Apple Parallel Interface, 


I finally 


got it going, and now it doesn't look hard at all. 


The program is set up to be loaded and started with a BRUN 


command, 


This doesn't start any printing, however. 


The initial 


code just puts a hook address into location $38 and $39, and 


passes them to DOS, 


Thereafter, all character-input calls will 


have to go through my routine at lines 1260-1320 (SCRN.PRNT). 
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The SCRN.PRNT subroutine looks at each input character to see if 
it is a control-P (ASCII code = $90). If not, the character is 
passed on to whatever program tried to read a character. If it is 
a control-P, the current contents of the screen are printed. 


(My printer is in slot 1; if you are using a different slot, 
change lines 1110 and 1120.) 


The actual printing subroutine is really straightforward. It 
consists of four parts: 1) save current registers and cursor 
position; 2) initialize Apple Parallel Interface temporaries; 3) 
print each line of the screen on the printer; and 4) restore the 
Cursor position and registers. 


Lines 1350-1410 save the A-, X-, and Y-registers on the stack, 
followed by the cursor horizontal position. I pushed them on the 
stack rather than allocate temporaries, but either way will work. 
Using the stack saves a few bytes of code and 4 bytes of temporary 
memory, but it takes a few more cycles if you are worried about 
speed. 


Lines 1420-1490 initialize the temporaries used by the code in 
Apple's Parallel Interface ROM. These temporaries are actually 
inside the screen buffer memory (between $0400 and SO7FF), but 
they are in bytes that do not get displayed. (There are 64 bytes 
in the screen buffer that do not get displayed, and which are used 
by interface cards for temporary memory. These are $478-47F, 
S4F8-4FF, $578-57F, S5SF8-5FF, $678-67F, S6F8-6FF, $778-77F, and 
S7F8-7FF.) For more information on how the Parallel Interface 
uses these temporaries, see your manual. 


Lines 1500-1670 actually print the screen contents. The 
X-register is used as a line counter, and runs from 0 to 23. See 
lines 1500, 1510, and 1650-1670. This is quite analogous to a 
BASIC statement like FOR I=0 TO 23. 


Inside the X-loop, line 1520 computes a new base address for the 
current line. Then the Y-register is used as a column counter. 
Lines 1530 and 1600-1620 control the Y-loop. Inside the Y-loop, 
each character of the line is picked up in turn. Lines 1550-1580 
convert inverse or flashing characters to normal ASCII codes for 
printing. Line 1590 calls on the Parallel Interface program to 
print one character. (The entry at $Cx02 assumes all temporaries 
are already set up.) At the end of each line, lines 1630 and 1640 
send a Carriage return to the printer. 


Lines 1680-1700 restore the cursor position and base address 
pointer, and lines 1710-1750 restore the 6502 registers. 


I wrote this program, lines 1340-1760, as a subroutine even though 
it could have been in-line. I did it so that you can call it 
directly from your Applesoft or Integer BASIC program, with a 
"CALL 793". This feature makes the very-valuable screen printer 
even more useful. 
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0364- 60 


AS 0 


03 


Cl 


BASE POINTER FOR LINE 


* cede ts ona iE cece gmat eean at eee ase em on 
* SCREEN PRINTER 
MON .CH -E 
MON.BASL . 28,29 
e@ eo FBC] 
MON.VTAB, FC22 
MON.RDKEY .EQ SFD 
MON.KEYIN . EQ) SFD1B 
DOS. : 3EA 
SLOT .EO 1 
PRINT a 102 $C002+SLOT*256 
: SF8+SLOT 
MODE . 6 78+SLOT 
ESCHAR . 6F8+SLOT 
F ; 778+SLOT 
' .OR $300 
LDA #SCRN.PRNT 
STA $38 
LDA /SCRN. PRNT 
STA $39 
: JMP DOS. 
SCRN. PRNT 
JSR MON KEYIN GET CHAR 
CMP #590 CONTROL-P? 
JSR SCREEN. PRINTER 
JMP MON. RDKEY 
31 RTS 
SCREEN. PRINTER 
PHA SAVE REGS 
TXA 
PHA 
TYA 
PHA 
LDA MON.CH SAVE CH 
IDA #40 SET UP APPLE CONTROLLER RCM 
STA MSTRT 
LDA #0 
STA MODE 
LDA #$89 
STA 
LDA #1 
STA FLAGS 
LDX #0 START AT LINE 0 
wl TXA 
JSR MON. COMPUTE 
LDY #0 START AT CHAR 0 
2 LDA (MON. Y 
3 CHP a0 aes FLASH AND INVERSE TO NORMAL 
ADC #$40 
BNE . .» ALWAYS 
4 JSR PRINT 
INY NEXT CHARACTER 
CPY #40 END OF LINE? 
LDA #SeD YES, PRINT CARRIAGE RETURN 
JSR PRINT 
INX NEXT LINE 
CPX #24 END OF SCREEN 
BCC wl NO 
PLA YES, RESTORE CH 
STA MON.CH 
JSR MON.VTAB RESTORE BASE POINTER 
PLA RESTORE REGS 
TAY 
PLA 
TAX 
PLA 
RTS 
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Decision 


Decision Systems 

S P.O. Box 13006 
ystems Denton, TX 76203 

S 817 382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISAM-DS is an integrated set of Appiesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$35. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a specia! load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Appie ll is a registered trademark of the Apple Computer Co. 
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Restoring Clobbered Page 3 Pointers........-Preston R. Black, M.D. 


Here's a very short (14 byte) program which you might find useful. 
As you know, DOS writes the page 3 vectors (between $3D0 and $3FF) 
as the last step in the bootstrap process. This is done by 
copying a portion of DOS onto this area. The image remains in 
memory and can be used to rewrite the vectors if they are 
clobbered, 


If you have a 48K Apple, the routine which copies the vector data 
starts at $9E25. My program temporarily patches DOS to isolate 
the vector-copier, by storing an RTS opcode at the end of the loop 
($9E30). After calling the loop, the original value of $9E30 is 
restored. 


I put the subroutine at S$BCDO inside DOS, abecause this area is 
not used by DOS. It can be placed on all slave diskettes you INIT 
after patching DOS. With this subroutine installed, you can use 
all of page 3 for your assembly language program. Once your 
program is finished, you can JMP SBCDO to restore $3D0-S$3FF to its 
normal state. 


Here is the program, written to assemble into SOCDO-OCDD. After 
assembly is complete, you can move it into DOS with the monitor 
command 


: SBCD0<CD0.CDDM (if issued from inside S-C Assembler II 


Or 
*BCD0<CDO.CDD (if you do it from the monitor. 
1000 * 
1010 * RESTORE PAGE 3 VECTORS 
1020 * ee 
1030 * 
1040 * PRESTON R , M.D. 
1050 * 12 JUNE 1981 
ise on sec 
1980 : “TA SOCDO 
1100 RESTORE. PAGE. 3.VECTIORS 
BCDO- A9 60 __—‘:1210 LDA 300 RTS OPCODE 
BCD2- 8D 30 oF 1120 STA E30 
BR AS aD tee vER Te ORIGINAL DATA 
BCDA- 8D 30 9E 1150 STA $9E30 
60 1160 Rr 


On second thought, 12 bytes is enough. Rather than patching the 
DOS code to make a subroutine, I can just put a program up at 
SBCDO which looks like the code at $9E25. Here is the shorter 
version: 


1070 -OR 
1080 : SoCbO 
era 
BOE AS 2g HE 1 RP Be 2 BE SO oe oa 
BCD5- 9D DO 03 1130 ~ STA $3D0,x VECTOR AREA eens 
8- CA 1140 DEX 
BCD9- 10 F7.—-: 1150 BPL .1 
- 1160 RTS 
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Corrections to Variable Cross Reference Program 


The Variable Cross Reference program I printed in issue #2 
(November, 1980) had at least three bugs. One of them was 
reported a long time ago, but I had no idea what the cause was 
until today. The other two were never reported by anyone, but I 
discovered their presence and cause today. Eventful day! 


Bug #1: After using the VCR program, the first line number LISTed 
by a subsequent LIST command printed out with all sorts of extra 
fractional digits. Strange! I finally tracked it down to a page 
zero location which VCR used. Location $A4 is left with a 
non-zero value, but Applesoft expects and requires it to be zero, 
If it is not zero, the floating point multiply subroutine gives 
‘wrong answers. The multiplication failure ruins the first number 
printed after running VCR. 


Solution to Bug #1: Add the following two lines to the VCR 
program. 


1452 LDA #0 CLEAR $A4 FOR APPLESOFT 
1454 STA $A4 


Bug #2: The logic for terminating the main program loop (lines 
1400-1460) was wrong, and resulted in sometimes adding a phony 
variable. 


Solution to Bug #2: Delete line 1810, and change or add the 
following lines. 


1650 LDY #3 CAPTURE POINTER AND LINE # 
1692 LDA DATAt1 TEST FOR END 

1694 BEQ .3 YES 

1820 .3 RTS 


Bug #3: If your program contained a PRINT statement with a quoted 
string not separated from a variable by a semi-colon or comma, the 
GET.NEXT.VARIABLE subroutine would invent new variable names from 
inside the quoted string! For example, the line PRINT DS"OPEN 
FILE" would add variables OP (for OPEN) and FI (for FILE). 


Solution to Bug #3: Change or add the following lines. 


2752 BEQ .6 YES 

2754 CMP #'" QUOTATION MARK? 

2762 LDA PNTR BACK UP PNTR OVER QUOTE MARK 
2763 BNE .7 

2764 DEC PNTR+1 

2765 .7 DEC PNTR 

2766 RTS 

2770 .6 LDA VARNAM+2 SET HIGH BIT 


If you have typed in the VCR program, or bought the Quarterly Disk 
#1 which contained the source, you should now go back and fix 
these three bugs. (All the line numbers above fit in with the 
program as printed last November.) Copies of the Quarterly Disk 
#1 with a serial number of 44 or higher already have been fixed. 
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Step-Trace Utility 
The Motive: 


"Not that it was that good, mind you! But we needed something, 
and they should not have yanked it out without providing some 
other way to debug machine language programs," 


When Apple converted over to the Autostart ROM, they not only 
removed the hardly-ever-used 16-bit multiply and divide 
subroutines. They also stripped the S and T commands, which left 
assembly language programmers naked. How can you possibly debug 
complicated 6502 code without at least a single step capability? 


Several programs are now on the market, in the $50 price range, 
which give you step, trace, breakpoints, stack display, et cetera. 
"John's Debugger", from John Broderick & Associates, 8635 
Shagrock, Dallas, TX 75238 is one. Someone called me from 
Augusta, GA, yesterday to tell me about a similar package he has 
written and wants to market (I'll be reviewing this one; it may 
become an S-C SOFTWARE product). I saw another ad this month 
somewhere, but I cannot find it now. 


But I wanted to do something special this month for the Assembly 
Line, so here is a limited STEP-TRACE program...freel 


DISASM® (2,1) - Aw IntTELLIGENT 2-Pass DIsaASSEMBLER For THE APPLE I] anp APPLE IJ Prus 
1S AN INVALUABLE AID FOR UNDERSTANDING AND MODIFYING MACHINE LANGUAGE PROGRAMS 


NEW! MULTIPLE FORMATTED DATA/ADDRESS TABLES MAY BE INTERMIXED WITH INSTRUCTIONS 


Pius ALL THe STANDARD FEATURES 


SELECTABLE OUTPUT FORMATS ARE DIRECTLY COMPATABLE WITH DOS TOOLKIT, LISA anp S-C (4.0) ASSEMBLERS 
NO RESTRICTION ON DISASSEMBLED BLOCK LENGTH (OTHER THAN RAM or ASSEMBLER LIMITATIONS) 


CORRECTLY DISASSEMBLES DISPLACED OBJECT CODE (THE PROGRAM BEING DISAS : 
RESIDE IN THE MEMORY SPACE IN WHICH IT EXECUTES) Bee ea eee een 


USER DEFINED LABEL NAME TABLE REPLACES ARBITRARY LABEL ASSIGNMENTS (EXTERNAL PAGE ZERO AN 
INTERNAL LABELS BECOME MORE MEANINGFUL, E.G, JSR CROUT, LDA WNDTOP - USE OF TABLE Is OPTIONAL” 


@ MONITOR ROM LABEL NAME TABLE IS INCLUDED WITH OVER 100 OF THE MOST COMMONLY USED SUBROUTINE 
LABELS (LABEL TABLE SOURCE ALSO PROVIDED SO YOU CAN EXTEND AND CUSTOMIZE IT TO YOU OWN NEEDS) 


e 1002 MACHINE LANGUAGE FOR FAST OPERATION © AUTO-PROMPTING FOR EASY USE LABELS AUTOMATICALLY 
ASSIGNED AS PG ZERO, EXTERNAL AND INTERNAL LABELS AND ADDRESSES ARE SORTED FOR USER CONVENIENCE 
e EQUATE DEFINITIONS GENERATED FOR PG ZERO AND EXTERNAL REFERENCES © AUTO SOURCE SEGMENTATION FOR 
EASIER READING AND UNDERSTANDING AND MORE! 


DISASM (2.1) Program Disxetre & User Manuac: $ 30.22 (postace paip) 
UPGRADE KIT FOR PREVIOUS PURCHASERS OF DISASM: $ 12.50 


RAK-WARE 
4] Racpn Road 
West OrAncE NJ 07052 


app $3.22 cor surement oursipe USA 
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The Manner: 


It 1s set up as a BRUNnable file, to load at $0800. If you want 
to load it somewhere else, you can put in an origin directive 
(.OR). The code executed when you BRUN the file (lines 1390-1460) 
merely installs the “control-Y vector". This enables the 
control-Y monitor command, which is a user-definable command. 


Once the control-Y vector is loaded, you have two new commands, 
If you type a memory address and a control-Y (and a carriage 
return), the instruction at that memory address will be 
disassembled and displayed on line 23. The flashing cursor will 
be positioned at the end of the disassembled instruction. Just 
above the cursor, on line 22, you will see the current register 
contents. Line 24 is an inverse mode line which labels the 
registers, and reminds you of the options you have. 


At this point you can type one of the five register names (A, X, 
Y, S, Or P), Or a Space, or a Carriage return. If you type a 
Carriage return, the trace is aborted and you are returned to the 
assembler. If you type a space, the disassembled instruction will 
be exectuted. The new register contents will be displayed, the 
screen will scroll up, and the next instruction will be 
disassembled on line 23. If you type a register name, the cursor 
will be moved under that register. You can type in a new value 
for the register, and then hit a space for the next register or a 
return to get ready to execute again. 


If you want to step through a little faster, hold down the space 
bar and the repeat key. 


Time II 


The most powerful, easiest to use, clock for your APPLE 


© TIME IN HOURS, MINUTES AND SECONDS. i% a ede 
° DATE WITH YEAR, MONTH, DATE, DAY OF WEEK AND - 

LEAP YEAR. 

¢ FAST DATE AND TIME SETTING. 

° PROGRAM SELECTABLE 24 HOUR MILITARY FORMAT 
OR 12 HOUR WITH AM/PM FORMAT. 

¢ + 30 SECOND ADJUST. 

¢ DIP SWITCH SELECTABLE INTERRUPTS PERMIT 
FOREGROUND/IBACKGROUND OPERATION OF TWO 
PROGRAMS SIMULTANEOUSLY SO YOU CAN CALL UP 
SCHEOULES, TIME EVENTS. DATE LISTINGS AND OTHER 
PRINTOUTS. 

* CRYSTAL CONTROLLED FOR .0005% ACCURACY 

¢ LATCHED INPUT AND OUTPUT PORTS FOR THE 
EASIEST PROGRAMMING IN BASIC. 


¢ ON BOARD BATTERY BACKUP POWER FOR OVER 4 * 23 PAGE OPERATING MANUAL INCLUDED. WITH MANY 
MONTHS POWER OFF OPERATION (BATTERY CHARGES EXAMPLES OF PROGRAMS TO USE WITH YOUR APPLE IN 
WHEN APPLE IS ON). ANY CONFIGURATION. 


CONTRIBUTED PROGRAMS ARE DISTRIBUTED FREE TO ALL TIME I! OWNERS IN OUR NEWSLETTER. 


MASTER CHARGE & VISA WELCOME 


See your dealer or contact - cee & 
APPLIED ENGINEER NG esses aie aaa 
P.O BOX 470301 7:00 AM - 11:00 PM 7 DAYS A WEEK 
DALLAS. TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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Once you have terminated the trace (by typing a carriage return), 
you can restart where you stopped by typing a control-Y and a 
Carriage return. Since there is no address given, STEP-TRACE will 
begin where you stopped the last time. You can stop the trace, do 
some monitor commands, and then start tracing again. 


Two warnings: I wrote STEP-TRACE to be used from inside the S-C 
ASSEMBLER II. That means all monitor commands, including the 
control-Y, need to be preceded by a dollar sign ($). If you want 
to use STEP-TRACE directly from the monitor, and not return inside 
the assembler after stopping, you need to change line 3500. It 
now says JMP $3D0, which restarts DOS and the assembler. Change 
it to JMP SFF69, which restarts the monitor. Line 3470 requires 
the .DA modification published in the December 1980 issue of AAL. 
If you haven't installed that yet, then rewrite line 3470 as five 
separate lines; if you don't, it will assemble without error but 
it will be WRONG! 


The Method: 


Now let's look through the listing, and see how it works. When 
the monitor decodes the control-Y command, the address you typed 
(if any) is loaded into $3C,3D in page zero, Then the monitor 
branches to $3F8, where we have already loaded a JMP STEP.TRACE 
instruction. We step into the action at line 1510. 


Lines 1520-1570: the X-register is zero if no address was typed. 
In this case, we skip around the code to copy the address into 
MON.PC. If there was an address, copy it into MON.PC. 


Lines 1580-1630: Set the stack pointer to SFF, giving the whole 
stack to the program under test. Move the cursor to the bottom of 
the screen and print a carriage return, 


Lines 1650-1680: Call on subroutines to display the current 
register values (from the SAVE.AREA at line 4350-4400), 
disassemble the instruction pointed to by MON.PC, and wait on you 
to type something on the keyboard. This last subroutine does not 
return unless you type a space, indicating you want to execute the 
disassembled instruction, 


Lines 1690-1860: Clear the XQT.AREA to NOP instructions. Get the 
stack pointer from the SAVE.AREA. Pick up the opcode byte, and 
see if it is one we have to interpret rather than execute (BRK, 
JSR, RTI, JMP, RTS, or JMP indirect). If so, jump to the 
appropriate code for each opcode. 


Lines 1870-2010: Get the instruction length (less one) in Y, so 
we can copy the instruction into XQT.AREA. See if the opcode is 
one of the relative branches; if so, change the displacement to 
$04, so that we can execute it inside XQT.AREA. Copy the 
instruction bytes into XQT.AREA. Restore the registers from the 
SAVE.AREA, restoring status (P-register last of all. 


Lines 2030-2160: Execute the instruction. Unless it is a 


relative branch instruction which branches, jump to 
did.not.branch. Relative branches which branch go to line 2100, 
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where the effective address is computed and stored in MON.PC. 


Lines 2180-2190: A BRK instruction displays the registers and 
returns to the assembler (aborts STEP-TRACE). 


Lines 2210-2250: The RTI instruction checks the stack pointer; if 
there are not three bytes left on the stack, STEP-TRACE is 
aborted. If there are three left, the next byte is pulled off the 
stack and stored in the SAVE.AREA for the P-register. The rest of 
the RTI instruction is the same as an RTS istruction. 


Lines 2260-2350: The RTS instruction checks the stack pointer; if 
there are not two bytes left on the stacke, STEP-TRACE is aborted. 
If there are two left, they are pulled off and stored in MON.PC. 


Lines 2370-2470: The JSR instruction picks up the current MON.PC, 
adds two, and pushes the result on the stack. The new stack 
ponter value is saved in SAVE.AREA. Then a JMP instruction is 
simulated. 


Lines 2480-2490: Simulate a JMP instruction by copying the 
address into MON.PC. 


Lines 2500-2530: Simulate a JMP indirect instruction. Copy the 
address contained in the two bytes pointed to by the instruction 
address into MON.PC. 


Lines 2550-2640: After a normal executed instruction, save all 
the registers in SAVE.AREA. Be sure the processor is in binary 
mode (not decimal). 


Lines 2650-2690: Add the instruction length to MON.PC, and go 
back to get the next instruction, 


Lines 2710-2800: Using the current MON.PC aS a pointer, pick up 
the two bytes pointed to and put them into MON.PC. This is used 
by the JSR, JMP, and JMP indirect processors, 


Lines 2820-2930: Set cursor position to line 23, column 27, and 
wait for you to type a key. If you type a carriage return, abort 
STEP-TRACE. If you type a space, return to whoever called 
WAIT.ON.KEYBOARD. 


Lines 2940-2990: See if you typed a register name (letter A, X, 
Y, S, or P). If not, go back and wait till you type something 
else. If sS0, go on to line 3000. 


Lines 3000-3100: Set inverse mode, position the cursor to the 
selected register column, and display the current contents of that 
register in inverse mode. Switch back to normal mode. 


Lines 3110-3340: Wait again for you type a character on the 
keyboard. If you type a hexadecimal digit, shift the current 
register contents one digit position to the left, and add in the 
digit you just typed. (You can type as many digits as you want 
to; the last two you type will be the new contents.) If you type 
a space or a carriage return, branch to line 3350 or 3400. 
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Lines 3350-3390: You typed a space, so move over to the next 
register. If you just modified the S-register, move back to the 
A-register. 


Lines 3400-3440: You typed a carriage return, so scroll up the 
screen and go back to the top of WAIT.ON.KEYBOARD. 


Lines 3450-3470: REG.NAMES defines the register names. REG.INDEX 
is an index into REG.NAMES and REG.CH. REG.CH is a list of column 
positions for each of the registers. (If you have not installed 
the .DA modification from AAL Volume 1, Issue 3, you need to 
spread the data values out on five separate lines.) 


Lines 3490-3500: Clear from the cursor to the end of screen, and 
return through DOS to the assembler. Change line 3500 if you want 
to go somewhere else after leaving the STEP-TRACE, 


Lines 3540-3590: Adds the contents of the A-register to MON.PC. 
Lines 3630-3740: Displays the register contents from SAVE.AREA. 


Lines 3810-3840: Prints MON.PC and a dash. This is called by the 
disassembly subroutine. 


Lines 3880-4330: Disassembles the instruction starting at MON.PC. 
This code is very similar to code in the Apple monitor ROM at 
SF882. It is modified slightly to change the spacing, so that 
there will be room for the register display on the same line. 


APPLE 8-BIT 8-CHANNEL A/D SYSTEM 


> 8-BIT RESOLUTION >» ELIMINATES NEED TO WAIT FOR A/D CON- 
VERSION 


rN Bee > AID PROCESS TOTALLY TRANSPARENT 
(Just peek at data) TO APPLE. 


» FAST CONVERSION - » FULL SCALE INPUTS CAN EASILY BE 
(.078 ms per channel). CHANGED BY USER. 


APPLIED ENGINEERING’S A/D board is a breakthrough product for all APPLE owners 
giving real world data at a really affordable price. Diverse applications include monitoring 


of: 
TEMPERATURE WIND SPEED WIND DIRECTION... 


LIGHT INTENSITY RPM SOIL MOISTURE 
AND MANY MORE 


CONTRIBUTED PROGRAMS ARE DISTRIBUTED FREE TO ALL A/D OWNERS IN OUR NEWSLETTER. 
MASTER CHARGE & VISA WELCOME 


See your dealer or contact - f 
Se aay Peewee oe sam} (214) 492-2027 
AD_L! EINGGINIEICICEN 
LIED ENGINEEANG 7:00 AM - 11:00 PM 7 DAYS A WEEK 


P.O. BOX 470301 
DALLAS, TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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1000 * 
1010 * STEP-TRACE UTILITY 
0023- 1030 MON.WNDBIM .BQ $23 
0024- 1040 MON.CH = CEQ) $24 
0025- 1050 MON.CV = 7 EQ. $25 
002C- 1060 LMNEM ¥EQ $2C 
002D- 1070 RMNEM 2E0 $2D 
002E- 1080 MON.FORMAT 7EQ $2E 
02F- 1090 MON.LENGTH EQ $2F 
003A- 1100 MON: “BD $32, 3B 
003C- 1110 MON. 
003E- 1120 MON.A2 CE) $3E, 3F 
1130 * 
03D0- 1140 DOS.REENTRY .EQ $3D0 
03F8- 1150 Y.VECTOR  °E0 $358 
07D0- 1160 BASE.LINE24 25) $7D0 
F88E- 1170 MON.INSDS2 °EQ SF88E 
F8D0- 1180 MON: INSTDSP EQ SF8D0 
F90C- 1190 MON.PRADDR +E SF90C 
F945- 1200 MON-PRELNK EQ) SF94 
FO4A- 1210 MON.PRBL2 2B) SFO4A 
F9CO- 1220 “EO SF9C0 
FAOO- 1230 -E) SFAOO 
FC22— 1240 MON.VIAB 22 
FC42- 1250 MON. 42 
FC70- 1260 MON.SCROLL - 70 
9C- 1270 MON.CIREOL °EO SFC9C 
0C- 1280 MON.RDKEY ‘EQ SFD0C 
FD8E- 1290 MON.CROUT  °EQ SED8E 
FD99- 1300 MON.PRYX3 <°EQ SFD99 
DA- 1310 MON.P SEQ SEDDA 
ED- 1320 MON.COUT ED 
FESO- 1330 MON-SETINV -EQ SFE80 
FE84— 1340 MON.SETNORM +5Q SPES4 
co00- 1360 KEYBOARD — EQ $0000 
C€010- 1370 STROBE +B) S010 
1390 STEP. TRACE. SETUP 
0800- A9 4c: 1400 LDA #S4C_——"JMP" OPCODE 
0802- 8D FS 03 1410 STA Y,VECTOR 
0805- A910 "1420 LDA #STEP. TRACE 
0807- 8D F9 03 1430 STA Y.VECTOR+1 
O80A- A9 08 | 1440 LDA (STEP. TRACE 
080C- 8D FA 03 1450 STA ¥.VECTOR+2 
O80F- 60 1460 RTS 
1480 * (Y SINGLE STEP AT CURRENT PC 
1490 * ADR (Y) SINGLE STEP AT ADR 
1510 STEP.TRACE 
0810- 1520 TXA X=0 IF NO ADDRESSES 
O811- FO 08 1530 BEO .1 NO ADDRESSES 
0813- A5 3c |= 1540 LDA MON.Al ONE OR TWO ADDRESSES 
0815- 85 3A 1550 STA MON. PC 
0817- A5 3D 1560 LDA MON-AI+1 
819- 85 3B 1570 STA MON.PC+1 
O81B- AZ FF 1580.1 LDX #SFF | USER GETS WHOLE STACK 
81D- 9A 1590 TXS 
O81E- 8E 3C OA 1600 STX SAVE.S 
0821- 1610 LDA #23 
0823- 85 25 1620 STA MON.CV 
0825- 20 8 FD 1630 JSR MON. 
1640 * 
1650 TRACE. 
0828- 20 97 09 1660 JSR DISPLAY .REGI 
82B- 20 DE 09 1670 JSR DISASSEMBLE ONE INSTRUCTION 
Q82E- 20 F8 08 1680 JSR WAIT .ON.KE 
0831- A9 EA 1690 LDA #SEA NOP" OPCODE 
0833- 8D 78 08 1700 STA XQI'.AREA+] 
0836- 8D 79 08 1710 STA XOP.AREA+2 
0839- AE 3C 0A 1720 LDX SAVE.S 
O83C- 9A 1730 
083D- AO 00 =: 1740 LDY #0 
083F- BI 3A 1750 LDA (MON.PC) ,¥ GBT USER OPCODE 
O841- FO 49 1760 BEQ X.BRK "{BRKy QPCODE 
0843- C9 20-1770 CMP #820 "JSR" OPCODE 
0845- FO 66 1780 BEQ X.JSR 
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0847- C9 40 1790 CMP #$40 'RTI' OPCODE 

0849- FO 47 ~—=«+1800 BEQ X:RT 

084B- C9 4C ~—i1810 CMP #S4C 'JMP' OPCODE 

O084D- FO 6F _—«-1820 BE X 

O84F- C9 60 1830 CMB #560 'RTS' OPOODE 

0851- FO 48 184 BEQ X,RTS 

0853- C9 6C ~—i1850 CMP #S6C JMP ()' OPCODE 

0855- FO 6D _—«1860 BEQ X.JMPI 

0857- A4 1870 LDY .LENGTH # BYTES IN INSTRUCTION 
0859- 29 } 1880 AND #SI1F IF RELATIVE BRANCH 
085B- 49 14 ~=—«:1890 FOR #$14 DISPLACEMENT TO S04 
085D- C9 04 ~=— 1900 CMP #804 FOR XOT AREA 

O85F- FO 02. += 1910 d 

0861- Bl 3A _ 1920 4 {MON PC) 1¥ COPY INSTRUCTION INTO XQr AREA 
0863— 39 77 08 1936 : STA XOT. ¥ 
0866- 4 DEY 
0867- 10 F8 1950 BPL .1 
0869- AD 3D 0A 1960 LDA SAVE.P RESTORE ALL REGISTERS 
O86C- 48 1970 PHA 
O86D- AD 40 OA 1980 LDA SAVE.A 

870- AF 3F 0A 1990 LDX SAVE.X 

873- AC 3E OA 2000 LDY SAVE.Y 
0876- 28 2010 PLP 

2020 * 
2030 XQT.AREA 
0877- EA 2040 NOP USER'S OPCODE GOES HERE 
0878- FA 2050 NOP 
0879- FA 2060 NOP 
O87A- 4C CF 08 2070 . JMP DID.NOT. BRANCH 
18 oe ae ee ee 

O87E- AO 01 = 2110 LDY #1 GET ORIGINAL DISPLACEMENT 
O0880- B] 3A —._- 2120 LDA (MON.PC) ,Y 

0882- 10 02. ~=—- 2130 BPL . POSITIVE DISPLACEMENT 
0884- C6 3B —s- 21.40 DEC MON.PC+] DECREMENT HI-BYTE IF NEGATIVE 
O886—- 20 BE 09 2150 .1 JSR ADD.A.TO.PC 

O889- 4C E2 08 2160 : UMP UPDATE. PC 

O8sc- 20 97 09 2180 X.BRK JSR DISPLAY.REGISTERS 

O88F- 4C 88 09 2190 RTRN.JMP JMP RETURN 
0892- BA 2210 X.RTI TSX 

0893- E0 2220 ? 

0895- BO F8 2230 BCS .JMP 

0897- 68 2240 PLA SIMULATE RTI BY GETTING 
0898- 8D 3D OA 2250 STA SAVE.P STATUS FROM STACK 

089B- BA 2260 X.RTS TSX 

089C- FO FE 2270 CPX #SFE 

089E- BO 2280 BCS .JMP 

O8A0- 68 2290 PLA IMULATE RTS BY GETTING 
O8Al- 85 3A _—-.2300 STA MON.PC PC FROM STACK 

O8A3- 68 2310 

O8A4- 85 3B =. 2320 STA MON.PC+1 

O8A6- BA 2330 

O8A7- 8E 36 OA 2340 STX SAVE.S 

O8AA- 4C E2 08 2350 A JMP UPDATE.PC 

O8AD- 18 2370 X.JSR CIC UPDATE PC AND PUSH ON STACK 
SAF- A5 2380 LDA MON.PC 

O8B0- 69 02 2390 ADC @ 

O8B2- A8 400 TAY SAVE LO-BYTE FOR NOW 
O8B3- A5 3B. —_-:2410 LDA MON. PC+1 

O8B5- 69 00 2420 ADC #0 

O8B7- 48 2430 PHA PUSH HI-BYTE 

O8B8- 98 2440 TYA 

O8B9- 48 2450 PUSH LO-BYTE 

O8BA- BA 2460 

O8BB- 8E 3C 0A 2470 STX SAVE.S 

O8BE- 20 EB 08 2480 xX.JMP JSR GET.NEW.PC 

O8C1- 4C 28 08 2490 UMP TRACE. LOOP 

O8C4- 20 EB 08 2500 X.JMPI JSR GET.NEW.PC 

O8C7~ AO 00 ~—-2510 LDY #0 

08C9- 20 ED 08 2520 JSR GET.NEW.PC.0 

O8CC- 4C 28 08 2530 JMP TRACE. LOOP 
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2550 DID.NOT. BRANCH 
O8CF- 8D 40 OA 2560 STA SAVE.A SAVE ALL REGISTERS 
08D2- 8E 3F OA 2570 STX SAVE.X 
O8D5- 8C 3E OA 2580 STY SAVE.Y 
O8D8- 08 2590 PHP 
O8D9- 68 2600 PLA 
O8DA- 8D 3D OA 2610 STA SAVE.P 
O8DD- BA 262 
O8DE- 8E 3C OA 2630 STX SAVE.S 
O8El- D8 264 
2650 UPDATE. PC 
O8E2- 38 2660 SEC =], 1=2, 2=3 
O8F3- AS 2F _—-2670 LDA MON. 
O8E5- 20 8E 09 2680 JSR ADD.A.TO.PC 
O8E8- 4C 28 08 2690 . JMP TRACE. LOOP 
2710 GET.NEW.PC 
O8EB- AO 01 2720 [DY #1 GET NEW PC FROM INSTRUCTION 
2730 GET.NEW.PC.0 
Q8ED- Bl 3A 3740 LDA (MON.PC) ,Y 
EF- AA 50 TAX SAVE LO-BYTE FOR NOW 
O8FO- C8 2760 
O8Fl- Bl 3A ~—_- 2770 LDA MON .PC) r¥ 
O8F3- 85 3B 2780 STA MON.PC+1 NEW HI-BYTE 
O8F5- 86 2790 STX MON.PC NEW LO-BYTE 
8F7- 60 2800 
2810 * — 
2820 WAIT.ON. 
O8F8- A916 ~—-. 2830 IDA #22 LINE 23 
8FA- 85 25 2840 STA MON. 
O8FC- AJ 1A  ~—-. 2850 LDA #26 COLUMN 27 
O8FE- 85 24 2860 STA MON. 
0900- 20 22 FC 2870 JSR MON.VTAB 
0903- 20 OC FD 2880 JSR MON .RDKEY 
0906- C9 8D ~—-2890 CMP #S8D 
0908- FO 7E ~=2900 BEO 
090A~ C9 AO ~—-.2910 CMP #SA0 
090C- DO 01 ©2920 BNE . REGISTER NAME 
090E- 60 2930 RTS 
090F- AO 04 ——- 2940 3 LDY #4 
0911- D9 Pp 09 2950 . CMP REG.NAMES,Y 
0914- FO 05 ~—s- 296 BED ; 
0916- 88 2970 D 
0917- 10 F8 2980 62 
0919- 30 DD —s- 2990 BMI WATT.ON.KEYBOARD 
091B—- 8C 82 09 3000 . STY REG. INDEX 
OS1F- 20 80 FE 3010 .4 JSR MON.SETINV 
0921- A9 16 ©3020 #22 
0923- 85 25 3030 A MON.CV 
0925- 20 22 FC 3040 JSR MON.VTAB 
0928- AC 82 09 3050 LDY REG. INDEX 
092B- BS 83 09 3060 LDA REG.CH,Y 
092F- 85 24 3070 STA MON.CH 
0930- B9 3C OA 3080 LDA SAVE.AREA, Y 
0933- 20 DA FD 3090 JSR MON. PRBYTE 
0936- 20 84 FE 3100 JSR MON. SETNORM 
0939- AD 00 CO 3110 .5 LDA K 
93C- 10 FB 33120 BPL .5 
93E- 8D 10 CO 3130 STA 
geal p32 Gg Og 
0945- C9 16 Bie 4SEp RETURN? 
0947- FO 28 3170 BEO . YES 
0949- 49 BO 3180 FOR #SB0 
0948B- C9 OA ~—_ 3:90 CMP #10 
094D- 50 06 3200 BCC .6 DIGIT 
094F- 69 88 3210 ADC #$88 
0951- C9 FA —-: 3220 CMP #SFA 
0953- 90 E4 3230 BCC NOT DIGIT, SO IGNORE 
0955- AO 03 3240 .6 LoY $3 
0957- OA 3250 ASL 
0958- OA 3260 ASL 
0959- OA 3270 ASL 
095A- OA ASL 
095B- AE 82 09 3290 LDX REG. INDEX 


Page 18....Apple Assembly Line....July, 1981....Copyright (C) S-C SOFTWARE 


095E- 


0A 3300 .7 
3E 3C OA 3310 ROL SAVE.AREA,X 
88 3320 EY 
10 F9 3330 BPL .7 
30 BZ  —- 3340 I .4 . ALWAYS 
AC 82 09 3350 .8 LDY REG. INDEX 
8 3360 EY 
10 AE —-. 3370 BPL .3 
AO 04 3380 LDY #4 
DO AA —_: 33390 BNE 3 . ALWAYS 
AS 17 3400 .9 LDA #23 
85 23-3410 STA MON.WNDBIM 
20 70 FC 3420 JSR MON. SCROLL 
F6 23 +3430 INC MON.WNDBIM 
ac FB 08 3440 WAIT .ON.KEYBOARD 
D8 Cl 3450 REG.NAMES .AS —/SPYXA/ 
er 3460 REG. INDEX .BS 1 
1A 3470 REG.CH _«DA_ #38, #35, #32, #29, #26 
20 42 FC 3490 RETURN JSR MON.CLREOP 
DO 0 3500 : JMP DOS.REENTRY 
3520 * ADD (A) TO MON.PC 
3930 * 
540 ADD.A.TO.PC 
65 3A _—-3550 MON. PC 
85 3a =—_-355560 STA MON.PC 
90 02 35/0 i 
ES B 580 INC MON.PC+l 
6 3590 .1 
3600 * 
0h ee 
3630 DISPLAY .REGISTERS 
A9 1A  ~—- 3640 LDA #26 
85 24 650 STA MON.CH 
A2 04 660 LDX # 
DO 05 3610 BNE 
AS A 3680 . LDA &SA0 
20 ED FD 3690 JSR MON.COUT 
BD 3c OA 3700 . LDA SAVE.AREA,X 
20 DA FD 3710 JSR MON, PRBYTE 
CA 3720 DEX 
10 F2 730 BPL wl 
60 74 RTS 
3750 * 
20 3C 53 
50 43 3E 
3D 4E 45 
58 54 20 
20 3C 52 
45 54 3E 
3p 51 58 
49 54 2 
20 20 41 
20 20 58 
20 20 59 
20 20 50 
20 20 53 
20 3760 BOTTOM.LINE .AS / <SPC@>=NEXT <REPD=QUIT A X Y P S/ 
00 3770 «HS 00 
3780 *——$__$_______________________- 
3790 * PRINT PC AND DASH 
389 
810 PRINT.PC 
yi 3A 383 LDY NON e+] 
4C 35 FD 3846 


JMP MON . PRYX3 , 


~ oe Oe ce en NE: |< Sa men 


Lines 4440-4480: A test program for you to try STEPping through. 
Another neat program to trace is at $FCA8 in the monitor (a delay 
loop). 
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3850 * 
3860 . DISASSEMBLE NEXT OPCODE 
3880 DISASSEMBLE 
9DE- 20 D7 09 3890 JSR PRINT.PC 
OS9E1- AO 00 §=.: 3900 LDY #0 
09E3- Bl 3910 LDA (MON.PC),Y GET OPCODE 
E5- 20 BE F8 3920 JSR AMON Egy 
EB- 48 3930 PHA SAVE MNEMONIC TABLE INDEX 
O9E9- Bl 3A =—-_- 33940 1 LDA (MON.PC) ,Y 
9FB- 20 DA FD 3950 JSR MON. 
OOFF- A201 3960 LDX #1 PRINT ONE BLANK 
O9FO- 20 4A F9 3970 .2 JSR MON. PRBL 
09F3- C4 3980 CPY MON. 
09F5- C8 3990 INY 
O9F6- 50 Fl 4000 BCC 1 
O9F8- A2 03 4010 LDX $3 
O9FA- CO 03 ©4020 CPY #3 
9FC- 90 F2 4039 BCC .2 
FE- 68 404 PLA GET MNEMONIC TABLE INDEX 
OOFF~ A8 4 50 TAY 
OA00- BS CO F9 406 LDA MNEML,Y 
OA03- 85 2c 4070 STA LMNEM 
OA05- BS 00 FA 4080 LDA MNEMH,Y 
OA08- 85 2p 4090 STA RMNEM 
OAOA- A9 00 = 4100 .3 LDA #0 
OAOC- AO 05 =s_s«411 LDY #5 
OAOE- 06 2D 4120 .4 ASL RMNEM § SHIFT 5 BITS OF CHARACTER INIO A 
0- 26 2c 4130 ROL LMNEM 
OAl2- 2A 4140 RO 
OA13- 88 415 DEY 
OAl4- DO F8 416 BNE .4 
OA16- 69 4170 iSBF 
OA18- 20 ED FD 4180 JSR MON.COUT 
OA1B- 4190 
OAIC- DO BG 4200 BNE 
OAIE- AS A 4210 LDA #SA0 PRINT BLANK 
OA20- 20 ED FD 4220 JSR MON. 
0A23- 20 0C F9 4230 JSR MON. PRADDR 
OA26- 20 9C FC 4240 JSR MON.CLREOL 
0A29- 20 BE FD 4250 JSR MON. 
~A0 27 4260 LDY #39 
OA2E- BO AE 09 4270 .5 LDA LINE, Y 
0A31- 29 3F — 4280 AND #S3F 
0A33- 99 DO 07 4290 STA .LINE24,Y 
0A36- 88 4300 DEY 
0A37- 10 FS —-_ 4310 iL .5 
GA39- C6 25 4320 DEC MON.CV 
A3B- 4330 
4356 SAVE AREA 
0A3C- 4360 SAVE.S .BS 1 
0A3D- 4370 SAVE.P .BS 1 
0OA3E- 4380 SAVE.Y .BS 1 
OA3F- 4390 SAVE.X .BS 1 
0A40- 4400 SAVE.A .BS l 
4410 * 
tf eae eee 
QA41- 20 45 OA 4440 TEST JSR TEST] 
0A44- 00 4450 


QA45- 20 48 oa 4460 TEST] JSR TEST2 
OA: 20 4B 4470 TEST2 JSR TEST3 
OA4B- 60 4480 TEST3 RIS 
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